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MACRO. SRC JMACDEF .MAR; 1 
MA gar a MACRO DEFINITION PROCESSOR 


MAAS ARARRRAARALASASALASALALAAE ALES EAE AEE E SELES ERE EEE ESR CREE ESE CEC ES cc eee aa oY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


re SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND or ine 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ants AND WITH THE 


AY_N 
OTHER PERSON. NO TITLE to AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ooRPORAt ion." NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


(ARRRAASAAALAASEAALELASASALELEESASES EL ESE SELES ESE ESSER EEE SAREE ERR RARER SESS 


FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 


The VAX-11 MACRO assembler translate 1 Me MACRO=32 source code into object 


modules for input to the VAX-11 LIN 

ENVIRONMENT: USER MODE 

AUTHOR: Benn Schreiber, CREATION DATE: 20-AUG-78 
MODIFIED BY: 


NOU E WN OS O00 NO-U EWN © OO NAME WN 9 OD NOAUE WN [=O OONAUES WN OOONOUS Wh 


PVPS BBS EE BB AANA AA NANI AID RI NPOPONPINPUNIPYPO 2 PO OO Oe 
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v03.00 MTROOO9 Mike ates 15-Mar-1982 
Modify routine MACRO:: de7gptimize the handling of 
null macros. Fixes SPR eis 

v01.10 RNOO2 R. Newland 3-Nov-1979 
New message codes to get error messages from system 
message f 

v01.09 RNOO10 R. Newland 5-Sep-1979 
Multipage MXB blocks 

v01.08 RNOOO8 R. Newland apatuge ters 
31 character symbols (macro names) 

v01.07 RNOOOS R. Newland 13-Aug-1979 
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0090 28 : Variable symbol name storage 
0 60 :-- 
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y04-008 DECLARATIONS "gr tet §¢:0% ay YRACRO SRe MACDEF .MAR; 1 
° 6¢ ~SBTTL DECLARATIONS 
64 ; INCLUDE FILES: 
0 o2 : 
000? 
000 68 ; MACROS: 
000 4 3 
000 0 
000 71 SMAC_SYMBLKDEF ;DEFINE SYMBOL BLOCK OFFSETS 
000 i SMA ~INTCODDEF ;DEFINE INT. FILE CODES 
000 7 SMAC_INPBLKDEF sDEFINE INPUT BLOCK OFFSETS 
05C 74 _MNBDE ;DEF INE MNB/MAB OFFSETS 
03C 75 SMAC_GENVALDEF ;DEFINE GENERAL VALUES 
03C 76 SMAC_CRFLAGDEF sDEFINE CREF CONTROL FLAGS 
03C 77 SMACASGDEF : Define message codes 
th 4 SMAC_CTLFLGDEF ;DEFINE CONTRO FLAGS 
03C 80 ; 
03C 81 ; EQUATED SYMBOLS: 
03C 6 : 
03¢ 8 
000 84 .PSECT MACSRO_CODE_MAC,NOWRT,GBL,LONG 
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“SEP=1 MACRO.SRC JMACDEF .MAR; 1 (3) 


~SBTTL MACRO DEFINE A MACRO 


; THIS ROUTINE IS CALLED WHEN A '.MACRO' DIRECTIVE IS 
; THE MACRO FORMAL ARGS ARE SCANNED, AND THE MACRO BODY IS 
; SCANNED AND PLACED IN CORE. THE MACRO DEFINITION IS ENTERED 
; IN THE USER MACRO HASH TABL 
: RECTIVE = = KMACRO 
BLBS _W*LST$G -HACRODEF + SYMSL vit 10$ ;BRANCH IF LISTING MACRO DEFINITIONS 
SINTOUT ty NTS ETLONG,<#0,#MACSGL_LIST_IT> ;NO--DO NOT LIST 
BSBW NUP Soh gh! MACRO NAME 
BLBS RO. sey" ‘BRANCH IF NAME FOUND 
SMAC_ERR ILLMACNAM 3 Renews sbeesoee code 
MOVL” # [FORCE NEW LINE 
BRW MACSERRORLN i ISSUE PRROR AND RETURN 
20$: § MOVAB UoMAESAL UMCHSHTB,R3 = : POINT TO USER MACRO HASH TABLE 
BSBW MACSSRCSYMTAB [LOOK UP THE MACRO NAME 
BLBC ~—_ RO, 308 :BRANCH IF NOT FOUN 
PUSHL R sFOUND==SAVE PTR TQ PREVIOUS 
FREE_UP_MACRO [DELETE OLD DEFINITION 
POPL R2 SRESTORE PTR TO PREVIOUS 
MACRO_DEF INE [DEFINE THE 
MOVZBL #CRFESR_DEF,RS :THIS I MACRO DEF INITION 
MACSCREF_ MACRO sCREF IT IF C 
BSBW MACSSKIPSP :SKIP SPA 
CMPB se R10,,#*A/,/ ‘STOP ON A COMMA? 
BNEQ 40$ [IF NEQ NO 
BSBW MACSGETCHR :YES=-SKIP IT 
: SCAN FORMAL ARGUMENTS 
BSBW § MACRO_ARG_SCAN : SCAN FORMAL | ARGUMENTS AND SET UP 
L_ W°MACSGL_ARGPTR,MNBSL_ THR CRG) -STORE POINTER TO TEXT 
MOVZBL #CR,RI0 ~ sFORCE READING OF NEW LIN 
W AC$GET [READ FIRST CHARACTER OF BODY 
PUSHL MNB$L_ARGP(R6) TACK THE ARGUMENT POINTER 
SUBL3 W*MACSGL_BLKPTR,- SFIGURE SPACE LEFT IN BLOCK 
WOnACSGL L-ARGPTR,RO :(THIS GIVES SPACE USED) 
SUBL3 RO, #51 =(SP ) :FIGURE SPACE LEFT AND STACK IT 
PUSHL W*MACS$GL_ARGPTR STA 
CALLS #3, U"MACSBODY _SCAN : SCAN 


THE MACRO BODY AND R 
:1T INTO CORE 


nae SEE IF THERE WAS A SYMBOL NAME FOLLOWING THE 


nD ad 
= 


INCL W*MACSGL_MCDEF ; COUNT pt lag MACRO DEFINITION 
BSBW MACSSYMSCNUP :1S THERE A SYMBOL? 

BLBC :1F LBC NO 

MOVL W*MACSGL_MACPTR,RO 7 YES--GET PTR TO MNB OF MACRO 
MOVZBL MNBS$B_NARE(RO), R1 ; Get offset to symbol count/name 


CK POINTER TO FREE SPACE IN BLOCK 
| 
| 
| 
| 


F 
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v04-000 MACRO DEFINE A MACRO -SEP-1984 01:48:54 (CMACRO.SRCIMACDEF.MAR; 1 (3) 
2 BA 143 SUBL2 R1,R0 : and form its address 
A 8 144 MOVZBL (RO)+,R1 :GET SIZE OF NAM 
52 9900" F OE 145 MOVA WoMACSAB_THPSYM,R2 ;POINT TO SCANNED NAME 
9A 009 146 MOVZBL (R2)4+,R [GET ITS SIZ 
62 53 00 60 @ 98 14 CMPCS R1,(RO),#0,R3, (R2) ‘RIGHT .ENDM FOR THIS MACRO? 
Hi 148 BEQL 608 SIF EQL YES 
AO 14 SINTOUT_X INT$_CHKL ;NO==ALIGN SOURCE AND LISTING 
A6 150 SMAC_ERR ENDWRAGMAC ; Get message code 
FFS2° 3 OA 131 BRW MACSERRORPT SISSUE AND RETURN 
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+> er MACRO DEFINITION PROCESSOR 19736-1388 ae ea yAneyes Macro V04-00 Page 
v04- FREE_UP_MACRO DELETE OLD MACRO DEFINITIO 5=-SEP-1984 :48:54 (CMACRO.SRCJMACDEF .MAR; 1 
; 139 -SBTTL FREE_UP_MACRO DELETE OLD MACRO DEFINITION 
F 188 p++ 
F 195 ; FUNCTIONAL DESCRIPTION: 
F 194 ; 
F 195 ;-- 
F 136 
F 197 FREE_UP_MACRO: 
56 DD OOF 138 PUSHL R6 R6 
62 $1 DO OOF 19 MOVL MNBSL_LINK(R1) ,MNBSL a.nitha) ; Unlink MNB from the List 
56 1 DO OOF7 00 MOVL ER 
53 aS dO Bee e 4 MOVL WAMACSGL_ INPUTP, Re [POINT TO CURRENT INPUT BLOCK 
14 A 1 01 FF § 10$: CMPL R1 INPSL_ RPTCNT(R3) S REDEFINING THIS MACRO? 
07 i; 3103 0 BNEQ <0 71F NEQ NO 
10 14 A3 1F E 18 04 BBCS #31, INPSL_RPTCNT(R3), 308° sYES--FLAG TO peLeTe THE OLD DEF. 
0 11 10A 05 BRB 30s" 3 (SAF TEY FIRST!) 
> i DO 10C 88 20$: MOVL (R3),R3 LINK TO NEXT INP T BLOCK 
00000000 ' 8F 5 D1 10F 8 CMPL RS PAACSGL_PRMINBL TOOKING AT PRIMARY INPUT BLOCK? 
iH \s 116 8 BNEQ 31F NEQ NO 
4 1 0118 09 BSBB MACSDEL_MAC_DEF ;DELETE THE MACRO DEFINITION 
56 BEDO OIA 10 30$: POPL R6 RESTORE R6 
05 0110 11 RSB 
O11E e 
Bite 1 i* 
Bite 3 : FUNCTIONAL DESCRIPTION: 
Bite 16 : was ROUTINE DELETES THE MACRO DEFINITSON-ROINTED TO BY R6. 
Otte te : THE MNB IS NOT DEALLQCATED IF CREFF ING MACROS. 
bP, BO ieeeael 
a Qe = 0 
>-— Al 11E 1 MACSDEL_MAC_DEF: 
0000 CF D7 11 § “pect WAMACSGL MCDEF out ie onmter DEFINITION 
05 A6 —4 1 CLRL pry ty TKTPC (R6) UEXT ARR INTER 
15 0000°CF 01 +4 1 4 BBS #CRFSO_MACROS a” eee chet Ene. 5$ ;BRANCH IF CREFFING MACROS 
50 04 a6 A 0128 5 ROVZEL MNBSB_RAME (R65 ,RO : Get offset to symbol count/name 
50 56 5 C3 O012F 6 SUBL R6,R and get s art address of page 
56 OB A6 4 ; 7 MOVL NBSL poe ce R6 :POINT TO ihe P AGE LIST 
FEC6' 1 8 BSBW SOFA. ; Deallocate MNB which is always 1 page 
OOOO'CF D7 O13A 9 DECL UoMAC 6C "acroRa : 2s les age for macro definitions 
1B #611 =«+01 . 0 BRB 20$ ;60 FREE “30 E P 
50 0B A6~ 00 14 1 5$: MOVL MNBSL_PAGP(R6) ,RO ;POINT TO potatos PAGE TO FREE 
0B A6 4 144 ¢ CLRL MNBSL~ _PAGP(R6) zAN ND PAGE POINTER 
56 39 0 147 MOVL 30 R6™ as TO Hy 338 
13 13 «O14A 4 BEQL §«6_-«30$ Mt L NO--ALL DONE 
50 56 00 14C€ 5 10$: MOVL RO [GET SET TO PREE. CURRENT PAGE 
56 66 08 14F § MOVL aKéSe LINK (R6) ,R6 : Point R6 to posstbie next block 
0000'CF 04 A C2 015 SUBL2 MXBSt~ PAGES(ROS, - : Subtract size of block from pages 
15 8 UMACSGL _MCPGRQ : used for macro definitions 
FEAS’ 30 138 ip 208 BSBW MACSDEAL_BLOCK 3 beat locate block of memory 
56 D5 158 41 TSTL R6 ;ANY MORE PAGES? 
ED ig 130 rt: BNEQ 10$ TIF NEQ YES--GO DO THEM 
0 15F 43 30$: RSB 
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CREATE MNB AND SET IT UP -SEP-19 

$3 -SBTTL MACRO_DEFINE CREATE MNB AND SET IT UP 

<8 p++ 

¢3 ; FUNCTIONAL DESCRIPTION: 

0: THIS ROUTINE oALkOcaTes A PAGE FOR A MACRO NAME BLOCK AND 

1 3 MACRO ARG BLO HE MNB_ IS INITIALIZED AND THE POINTER 

26 j 1S RETURNED IN KMACSGL MACPTR: 

34 te 

2$ MACRO_DEF INE: 

PUSHL R ;SAVE PTR y et Ah 

8 SBW MACSALL_1_PAGE :ALLOCATE A PAGE FOR THE MNB 

5 INCL W*MACSGC_ACPGRO : COUNT PAGE FOR MACRO DEFINITION 
60 MOVL RO,W*MACSGL_BLKPTR Set pointer to start of block 
61 MOVZBL W"MACSAB TMPSYM,R1 : Get symbol count 

$6 tare R1 ,#WSYMSR_TWOCOL ; be Py isting format required? 
rf: 108 BBSS #FLGSV_MAC2COL,(R11),10$'; Set tlag for wide macro name Listing 
06 } INCL R1 : Include the count byte 

6 MOVCS R1,W*MACSAB_TMPSYM,(RO) ; Copy symbol count/name into MNB 
68 MOVL R3,R6 : Save aséress of MNB 

4 MOVL R6,W*MACSGL_MACPTR ; andr address in MACPTR 

0 POPL RO’ ;REST ORE *OTR TO PREVIOUS 

71 MOVL srg “ett (R3)+ ; : Link in new MNB 

¢ MOVL 6,MNBSL ) 

7 ADDB3 a U"RACSAB. THPSYM, (R3)+: insert Se offset 

74 CLRL cn$)s SCLEAR 

75 CLRW (R3)+ eetaae FLAGS 

6 CLRL (R3)+ 3CLEAR PAGP 

7 MOVL #1,(R3)+ 2 ANE ALA Ee Doe (PAGE COUNT) 

78 CLRL =—_ (R48) + >CLEAR 

79 CLRB i: : 3; CLEAR Ane. COUNT 

80 CLRL )+ ;CLEAR ARG POINTER 
$8} eee RS U"MACSGL_ARGPTR ;STORE POINTER FOR MAB ALLOCATION 


MACSMACDEF MACRO DEFINITION PROCESSOR 16-SEP-1984 07:14 VAX/VMS Macro v04-00 Page MA 
v04- MACRO_ARG_SCAN SCAN FORMAL MACRO ARGUMEN g- -SEP-1 1384 g Obs MACRO.SRCJMACDEF .MAR; 1 ° (3) vO: 
1B 4 -SBTTL MACRO_ARG_SCAN SCAN FORMAL MACRO ARGUMENTS 

iB 3 +e 
1 § 3 FUNCTIONAL DESCRIPTION: 
18 § 3 THIS ROUTINE SCANS THE FORMAL MACRO ARGUMENTS AND STORES 
18 0; THEM IN MACRO ARGUMENT BLOCKS (MAB'S) THAT ARE LINKED TO 
18 91; THE MACRO NAME BLOCK. 
18 3 $ 
fs 37 je 
18 95 MACRO_ARG_SCAN: 
1180 8F BB 18 39 POSHR #*M<R7,RB,R12> + SAVE REGISTERS 
58 0000'CF dO 1B4 9 OVL WMA eer ARGPT R,R8 ;POINT TO FREE SPACE IN BLOCK 
50 04 A6 9A 0189 98 moveRL MNBS$ MAME (RG) »RO : Get bytes used to store symbol name 
57 28 C3 018D 99 SUBL R . TR? ; Figure bytes used for fixed-sized “NB 
5 c 1C1 00 ADDL Add fixed and variable ports 
57 00000200 8F ¢ 104 01 SUBL $512 R7 SREALLY ier SPACE LEFT NO 
FE31" 30 O1CC 0¢ BSBW mat SSK PSP [SKIP SPACES 
° KIP TO END OF LIN 
> 88 «32 bibe  B08 gnea SOs isxie 10 — 
RW ARG_SCAN_EX :YES--NO FORMAL ARGS HERE 
0198 31 0104 05 6 SCAN_EXIT E 
Sip? 308 
01D7 308 ARG_SCAN_LOOP: 
es 30 01D7 09 6SBw MACSSKIPSP 3 SKIP gts SPACES 
3F A 91 OQ1DA 10 CMPB R10,#°A/2/ ;CREATED SYMBOL? 
15 12 OND 11 BNEQ 3 IF NEQ NO 
1F 17 A600 91 biee \¢ CMPB MNBSB_ARGCT(R6) ,#31 sONLY FIRST 32 SYMBOLS CAN BE CREATED 
OF 1A 1€3 1 BGTRU 30% sIF GTR THEN LOS 
50 17 46 9A bles 14 MOVZBL a ARGCT(R6) ,RO 3;GET ARGUMENT NUMBER - 
00 13 A6 5 3 O19 15 BCS 0,MNBSL CRSYMF (R6), 20$ ;SET * EATED SYMBOL FLAG FOR THIS ARG 
FEOF’ QO CIEE 16 20$: BSBW fees: TCAR sSKIP THE QUESTION MARK 
ie 9 0 1F1 17 BSBW RACSSKIPSP ;SKIP LEADING SPACES 
0 E0 1F4 30$: BBS no ‘RANCH IF LEGAL CHAR FOR ARG 
2F 0000'CA 17631 ACERS. CASK Re AB(RIO), 80s 
OFA 0 SMAC “ERR” ILLHACA ARGN No--get error code 
FOFE' 30 Bihe 1 BSBW ##MACSERRORLN ISSUE ERROR TO PASS 2 
0 § ; LOOP LOOKING FOR END OF ARGUMENT OR END OF LINE 
FOFB’ 30 0 6 5 40s: BSBwW MACSGETCHR 7GET NEXT CHARACTER 
2c SA 91 § CMPB R10,#°A/, sSTART OF NEXT ARG? 
11 13 8 BEQL ate sIF EQL YES 
09 SA 91 A 8 CMPB R10, #TAB Fr} ? 
F 13 0D BEQL 60$ sIF EQL YES 
20 A 91 OF 0 CMPB R10,#*A/ / : SPACE? 
A 13 12 1 BEQL 605 sIF EQL YES 
0D on 4 I; ¢ Hay BAgeacr :NO--END OF LINE? 
sNO--K K N 
E 11 bb : BRB 40$ O--KEEP SKIPPING 
18 § 3: FOUND A COMMA 
FDE2" 9 1B 8 308 BSBW MACSGETCHR :SKIP THE COMMA 
FDDF* 1E 9 60$ BSBW MACSSKIPSP sSKIP SPACES 
0D SA 1 21 40 CMPB R10,4CR sDID WE SKIP TO END OF LINE? 


MACSMACDEF MACRO DEFINITION PROCESSOR “SEP=1984 02:07 ‘14 AX/VMS Macro v04-00 Page 19 
LARG_ L MA U 4 - A AR; 
v04-000 MACRO_ARG_SCAN SCAN FORMAL MACRO ARGUME ~3Ep 1984 MACRO. SRCIMACDEF .MAR; 1 (7) 
Bl 6 % BNEQ  $ARG_SCAN_LOOP s1F NEQ yNO==CONTINUE SCANNING ARGS 
OOF9 if : ‘3 70$: BRW 88s * SQUIT 0 N EOL 
a4 3 CHARACTER CAN LEGALLY START A MACRO ARGUMENT 
FDp4* 30 3 46 80S: BSBW MACSSYMSCNUP 3GET SYMBOL NAME 
6 bb ¢ 4 PUSHL R6 ;SAVE P TO MNB 
56 18 A6 48 MOVAB WNBSt ARGP(R6) ,R6 POINT | 10 ARGUMENT LIST 
55 26 p 4 MOVL MAK KE A COPY 
FDcB’ 0 BSBW BACSERC LIST :LOOK IT UP 
8EDO 1 POP R ;RESTORE MNB POINTER 
bb j PUSHL 7SAVE THE SEARCH RESULT 
0000" CF D MOVL Ri W*MACSGL ARGPTR 7SAVE POINTER TO MAB IN CASE FOUND 
06 Al oD 4 54 MOVAL MABS$W_DVLENTR1), SASSUME WE FOUND IT 
63 50 € 4 55 BLBS RO,100$ :BR ANCH IF FOUND 
53 58 «OD 4 26 MOVL R *h sNO=--GET PTR TO FREE MAB SPOT ON PAGE 
50 O000°CF 9A 4C 5 MOVZBL W°MACSAB_TMPSYM,RO ; Get symbol name length 
0 oD 24 28 INCL RO : Include count byte 
nu .:¢ 5 5 SUBL RO,R7 : Subtract from space in bloc 
7 oc C 560 360 SUBL2 #MABSK_BLKSIZ,R7 31S THERE ROOM IN BLOCK FOR faa? 
2 14 0259 361 BGTR 9 :IF GTR YE 
FDA2' 30 9 58 6¢ BSBW § MACSALL_1_PAGE :NO=-GET ANOTHER PAGE 
9000°¢F 6 5 6 INCL W*MACSGC_ACPGRO ;COUNT PAGE FOR MACRO DEFINITION 
8 50 »d0 026 64 MOVL RQ, R :PAGE ADDRESS TO R8 
OOOO'CF 50 00 0 63 69 wove OR 0 UIMACSEL eBLKPTR 3SET NEW PAGE START 
0 6A $$ ASSUME mXBSC “PAGES EQ MXBSL _LINK+4 
88 0B A6 DO 026A 368 MOVL MNBSL PAGP(R6), (RB) + sLINK NEW PAGE INTO PAGE LIST 
a6 50 00 : $9 MOVL O,MNESL_PAGP(R6) Sees 
88 01 00 0 MOVL i cRO)e Size of block is 1 page 
OF A6 D6 7 71 INCL  MNB$L_PAGC(R6) CO Sunt ANOTHER PAGE FOR DEF. 
57 O1EC BF C 78 e MOVZWL #<512=MXBSK_BLKSIZ-MABSK._BLKSIZ>,R7 ; Set block count 
53. 58 00 9 7D ee _ MOVL RB, TSET POINTER IN R3 ALSO 
52 DD § 75 PUSHL R2 : Save previous pointer 
50 O000°CF 9A § 76 MOVZBL W*MACSAB_TMPSYM,RO ; Get symbol name Length 
50 OD 77 INCL R : Include count byte 
63 0000'CF 28 2 9 78 MOVC3) RO,W*MACSAB_TMPSYM,(R3) ; Copy symbol count/name to MAB 
0000' CF DO F 79 MOVL R3,W°MACSGL—  ARGPTR 3 zee new argument pointer 
2§ 8EDO 4 0 POPL R 3 pestere previous pointer 
83 6 DO 97 1 MOVL MABSL b Jom tng) (R3)+ : Copy F previ ous Link to new MAB 
62. O0000°CF DO 029A ; OVL W*MACSGL PTR,MABSL_LINK(R Point previous Link to new MAB 
83 O000'CF 01 81 029F ADDB3 RACSAB MPSYM,(R3)+; Store name offset 
7A A i INCB mNeSB"A TR [COUNT THE ARGUMENT 
83 117A A 5 MOVB MNBS$B™ ARGETCR ),(R3)+ STORE ARGUMENT 
<2 D AC § 100$: MOVL R3,R12 3 SAVE KE YWoRe LINK P' 
3 B4 O2AF CLRW ‘}; [CLEAR DEFAULT VALUE LANGTH 
D4 0281 8 CLRL (R3)+ sCLEAR DEFAULT V 
D a 9 TSTL (SP)+ 3DID WE FIND THE RAB OR MAKE NEW ONE? 
9 1 8 0 BNEQ 1108 sI1F NEQ WE FOUND IT--DON'T UPDATE PTR 
58 B 91 MOVL R3,R8 ZSTORE POINTER TO NEXT MAB 
FD43" BA 36 110$: BSBW MACSSKIPSP [SKIP SPACES 
3D 2A 1 B 9 CMPB) saR10, #*A/=/ sKEYWORD ARG? 
0 12 C 3 BNEQ § SIF NEQ NO 
¢ 96 : SCAN DEFAULT ARGUMENT 
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v04- MACRO_ARG_SCAN SCAN FORMAL MACRO ARGUMEN 5-SEP-1984 48:54 (CMACRO.SRCJMACDEF .MAR;1 (7) vO 
FD3B' ; C $95 BSBW MACSGETCHR 3GET FIRST CHARACTER OF ARGUMENT 
FD38" C 9 BSBW MACSMAC_ARG_SCN 7SCAN DEFAULT ARG 
Dd C 4 9 TSTL R :WAS IT NULL? 
28 1 CA & BEQL 130$ s1F EQL YES 
8S 8 cc 4 ¢ MOVW RO,(R12)¢ sSTORE DEFAULT VALUE LENGTH 
C CF 4 SUBL2 R0,R7 31S THERE ROOM FOR DEFAULT STRING? 
14 02d2 404 BGTR 1206$ SIF GTR YES 
DD D4 = 405 PUSH R sNO--SAVE SIZE OF DEFAULT ARG 
51 50 ¢} D6 £06 ADDL #MXBSK_BLKSIZ,RO,R1 ; Compute total size of block required 
FD23" 8 DA 8 BSBW MACSALC BLOCK ; Allocate block of memory 
0000"¢F oe: DD 408 ADDL2 R1,W*MACSGL_MCPGRO 3 Add pages allocated to macro definitions 
8 8 p° Ee 292 MOVL RO,R8 ;PAGE ADDRESS 
0000' CF 1) E 410 MOVL RO,W“MACSGL_BLKPTR 3SET PAGE START ADDRESS IN BLKPTR 
88 0B 68 b0 EA 411 MOVL MNBSL PAGP(R6) , (RB) + zLINK NEW PAGE INTO PAGE LIST 
08 ag 3 DO O2E aig MOVL RO, MNBSL_PAGP(R6) ee 
8 ; .a 8 F 41 MOVL ‘ + : Insert block size in block 
OF A651 5 F 41g ADDL2 R1,MNBSL_PAGC(R6) ; Add pages to total used to define macro 
57 51 09 O2F9 415 ASHL #9,R1,R ; Compute block size in bytes 
57 08 C2 QO2FD 416 SUBL2 #MXBSK_BLKSIZ,R7 ;_and subtract MXB header size 
50 8EDO O 69 417 POPL R sSAVE SIZE OF DEFAULT ARG 
57 23 C2 030 418 SUBL2 ‘ 3; Subtract size of argument 
8C 5 DO 0306 419 120$: MOVL RB, (R12)+ ;STORE DEFAULT VALUE POINTER 
68  0000'CF 50 28 0309 420 MOVCS RO,W*MACSAB_TMPBUF,(R8) ;COPY INTO BLOC 
58 53 00 8 OF 421 MOVL ;UPDATE ARG POINTER 
2c 34 3} ag ? $ 130$: Ha R16 #*A/,/ ;STOP ON A COMMA? 
is i$ oa? 424 BSBW “oS ia 7 YES--GET NEXT CHARACTER 
0D A 91 O31A 425 140$: CMPB R10,4CR sEND OF LINE? 
03 13 031D 426 BEQL 1 s1F EQL NO 
FEBS 31 O3S1F 427 BRW ARG_SCAN_LOOP 3NO=-CONTINUE SCANNING ARGS 
OO0OO'cF 58 00 8 ¢ $ $ 150$: MOVL R8,Q*MACSGL_ARGPTR STORE UPDATED ARG POINTER 
03 7 430 ARG_SCAN_EXIT: 
1180 8F BA 0327 431 PopR #*M<R7,RB,R12> sRESTORE REGISTERS 
05 33 ° ; ¢ RSB 
$35 434 - END 
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MACSMACDEF MACRO DEFINITION PROCESSOR 16-SEP-1984 02:07:14 VAX/VMS Macro V04-00 
Symbol table ets Yi SELLY EMACRO. SRCUMACDEF SAR: 1 
INT$S_ILG = 00 690 MACS$AB_TMPBUF eetereee =X PSC$B_SEG oc 
INTS_INFO = 5 8 A MACSAB_TMPSYM eererere =X PSC$B_UNUSED 4 
INTS_LGLAB = 15 MACSALC_1_ PAGE teeeeee PSCS$K_BLKSIZ 1 
INTS_MACL = 00 3 MACSALL”BCOCK eeereeee =X PSC$K_NO_OPTNS = 
INTS_MUL = 8 0 MACSAL_OMCHSHTB ‘steeeeee xX PSC$L_CURLOC F 
INTS_NEG = . 96 MACSBOBY_SCAN eeterere =X 8 PSCSL_LINK 0 } 3 
INTS_NEWL = 0000001 MACSCREF_MACRO teeeeeee =X PSC$L_MAXLGTH 0000 
INTS_NEWP = 44 4H MACSDEAL BLOCK t#teenree Xx 8 PSCSM_ABS = FFFFFFF 
INTS_NOT = 464 0 MACSDEA_T_PAGE ‘eeeeeeer § X PSCSM_ALIGNFLG = BO 888 00 
INT$_OP = 00000019 MACSDEL-MAC_DEF OQO00011E RG 8 PSCSM_ALLOPTNS = QOOQOOSFF 
INT$_OR = 00000008 MACSERRORLN eeeeeere =X 3 PSCSM_BYTE = 00004000 
INTS_PRIL = bbe bia MACSERRORPT ketetere 8 §=6X 8 PSCS$M_CON =  pOOD ICE 
INTS_ = 00000018 MACSGETCHR eeeereee =X PSCSM_DEFAULT = 000001C 
INT$_PSECT = 0000001C MACSGL_ARGPTR eeeerere =X 03 PSC$M_EXE = 000000C0 
INTS_REDEF = 0000001D MACSGL_BLKPTR eeeeeere = X 03 PSC$M_GBL = 00000010 
INTS_REF = QOOOO01E MACSGL_CRF FLG weeeeree xX 03 PSCSM_LCL = FRFFFFEF 
INTS_REST = 0000001F MACSGL_INPOTP eeeeeeee =X = 03 PSC$M_LIB = 00000002 
TS$_SAME = 00000009 MACSGL_LIST_IT weenenee xX 03 PSCS$M_LONG = 00004800 
NTS_SAVE = 00000020 MACSGL_MACPTR eeeeeere = =X 03 PSCSM_NOEXE = FFFFFFBF 
T$_SBTTL = 00000021 MACSGL_MCDEF teeeeeee =X 03 PSCSM_NOPIC = FFFFFFFE 
INTS_SETFLAG = 000000 ¢ MACSGL_MCPGROQ aeeeeeee =X 8603 PSCS$M_NORD = FFFFFF7F 
INTS_SETLONG = 000000 MACSGL_PRMINBL ‘tteteree =X 8 035 PSCS$M_NOSHR = FFFFFFDF 
T$_SPIC = 00000024 MACSINTOUT.1_LW teeeeeee XX 03 PSCS$M_NOVEC = FRFFFDFF 
INTS_SPID = 00000025 MACSINTOUT_2_LW seeeeeee xX 03 PSCSM_NOWRT = FFFFFEFF 
INT$_STIB = BOOB ORSE MACSINTOUT_X aexeeere =X = 03 PSCSM_OVR = 00000004 
INTS_STIL = 00000028 MACSMAC_ARG_SCN ‘eeteeee x 03 PSC$M_PAGE = 00006400 
INTS_STIW = aa MACSSKIPSP aeeeeeee =X 83 PSC$M_PIC = 00000001 
INTS_STKEPT = 00000029 MACSSRCSYMTAB eerereee =X 3 PSC$M_QUAD = 00004C00 
INTS_STKG = aig aie tts MACSSRC_LIST eereeeee = =X = 03 PSCS$M_RD = 00000080 
INTS_STKL = 00000028 MACSSYMS CNUP aeeeeere§ =X = 03 PSC$M_REL = 00000008 
INTS_STKPC = 0000002C MAC$_DIRSYNX = 007D906A PSC$M_SHR = 00000020 
INTS_STKS = 0000002D MACS_ENDWRNGMAC= 007D907A PSCS$M_USR = FRFFFFFD 
T$_ST = 00000034 MACS_ILLMACARGN= 007D90EA PSCS$M_VEC = 00000200 
INT$_STOL = BODO O EE MACS$S_ILLMACNAM = 007090F 2 PSC$M_WORD = 00004400 
T$_ST = 000000 MACRO aa 4ta RG 03 PSCSM_WRT = SOO 
INTS_STRB = 0000002F MACRO_ARG_SCAN 0000180 R 03 PSCS$S_ALIGNMENT= 00000004 
INT$_STRL = 00000031 MACRO” DEF INE 00000160 R 03 PSCS$V_ALIGNFLG = 4443 
INTS_STRSB = alee tT MAC_SOBSYS = BR008079 PSC$V_ALIGNMENT= 44 4614 
INTS_STRSW = 0000003 MNBSB_ARGCT 0000001 PSCS$V_EXE = 00000006 
INTS_STRW = 00000030 MNBS$B_NAM 00000004 PSC$V_GBL = 00000004 
INTS_STSB = 00000036 MNBSK_BLKSIZ 0000001C PSC$V_LIB = 00000001 
INTS_STSW = 00000037 MNBSL_ARGP set OE PSC$V_OVR = 4 of 
INTS-SURE = (00000089 RNBSL“LINK” 0000000 PScSV-RD = 90000007 
INTSCURN; == 90000038 RNBSL~PAGC 800000F PSESV-REL © = 90000008 
INT$_XOR = 00000008 MNBSL_PAGP 00000 3 PSC$V_SHR = 00000005 
LSTSG_MACRODEF eteeeeeere xX 03 MNBSL_TXTP itt 0 PSC$V_VEC ~ 4484 
LSTSK_BUFSIZ = 8 poR6 MNBSW_FLA 8 009 PSCS$V_WRT = 00000008 
STSK_L_P = C MXBSK_BLKSIZ 00 it PSC$W_FLAG 4 
LSTSK_TITCE_Siz= 0 $3 MXBSL_LI st 0 PSCS$W_OPTIONS 0 D 
iw MXBS$L_ PAGES 00 8 RDX$V_BINARY = 0000 
NAME 04 OBJSK_BUFSIZ = 000 RDX$V_DECIMAL = 8 0 bg 
MABSK_BLKSIZ OPFSM_LASTOPR = 000 ¢ RDX$V_DOUBLE = 000 
MABSL_DVPTR OPFSM_OPTEXP = 38 RDXS$V_FLOAT = 8 004 
MABSL_LINK 0 OPF$V_LASTOPR = 8 0000 RDX$V_GFLOAT = 0 § 
MABSW"DVLEN 0000006 PF$V_OPT = B80 C RDX$V_HEX = 0000 
MACSAB_CMSK_TAB eteeeeee YX 03 C$B- 0000004 RDXS$SV-HFLOAT = 00000007 
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MACSMACDEF MACRO DEFINITION PROCESSOR 19-$6b= 1354 ¢ 07:14 mae Macro V04-00 Page 
Psect synopsis “SEP-1984 01:48:54 ([CMACRO.SRCJMACDEF .MAR;1 

ares’ ESS ( 60.) oe ( ¢°} NOPIC USR CON BS LCL NOSHR EXE RD WRT NOVEC BYTE 
MACSRO_CODE_MAC 00 C ¢ #Ble2.) ( 3.) NOPIC USR CON REL GBL NOSHR EXE RD WNOWRT NOVEC LONG 
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! Performance indicators ! 


treo moan cee ms cence cen ew ee + 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00: 98 g: 8:00.89 
io iegeer: Ne BO:80: 08:28 B0:gh:13: 8 
pyase!, table sort 9f 09: : 0.48 if 0:01 66 
Symbol table output 32 00:0 : 6°49 0: 0:01.72 
Psect synopsis output 5 00: 838: Be Bp 8b: 0.0 
Cross-reference output B98: 2-2 00: 899-08 
Assembler run totals 491 00:00:05.41 00:00:25.8 


The working set Limit was 1350 pages. 

31798 bytes (63 pages) of virtual memory were used to buffer the intermediate oe 

There were 30 pages of symbol table space allocated to hold 466 non-local and 34 local symbols. 
434 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

16 pages of virtual memory were used to define 15 macros. 
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+ 
H Macro Library statistics ! 


ececeeeccesecn ee 
Macro Library name Macros defined 

-$255$DUA28: CMACRO.OBJJMACRO.MLB; 1 13 

$255$DUA28: (SYSLIBJSTARLET .MLB; 2 4 

TOTALS (all libraries) 17 


586 GETS were required to define 17 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MACDEF /OBJ=OBJ$:MACDEF MSRC$:MACDEF /UPDATE=(ENHS$:MACDEF )+LIB$:MACRO/LIB 
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